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EDITORIAL - John Noyce 

Well its been a long time in preparation, but I 
hope you find it worthwhile. Part of the delay 
was due to moving house, others - well, its been 
a nice summer. . . 

This issue is, with the exception of Garry Knight's 
Spectrum Forth comparison, entirely on the Jupiter 
Ace. Jupiter Cantab may have crashed in 1983, but 
the Ace lives on, indeed there has been a renewal 
of enthusiasm for it this year, as Boldfield have 
sold off bankrupt stocks, and assembled an impressive 
list of add-ons. More recently Boldfield have taken 
the plunge and produced some new software for the 
Ace - anyone want to review these items? Just in 
passing, we still have some copies of the Users 
Club software left (in some cases very few). 

Next year's issues will still, I suspect, be mainly 
on the Ace, but hopefully some more articles on 
other machines using Forth will be forthcoming. 
All articles, letters, etc, always welcome. 

Finally a note on reproduction quality - whilst some 
of the articles were retyped, I have reprinted 'as is' 
as this saves retyping and removes possibility of 
error in the retyping of listings. If contributors 
could use a typewriter with a decent ribbon that 





would be helpful - or at very least use a black biro 




if writing by hand. 




See you next year 




Ps. Subns are due - still £7 for 3 issues. 
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There are some six or seven Spectrum FORTHe currently 
on the market - Abersoft FORTH, Artie FORTH, Thurnall 
Engineering FORTH Compiler - the three reviewed here - 
two by Mike Hampeon (integer and floating-point), and 
one or two others whose names escape me at the moment. 
Of the first three, Abersoft and Artie are a mixture of 
FIG and FORTH-79, while the third is very unusual indeed. 
For thie reason I am going to do a comparison of the 
first two in terms of the commands supported and the 
differences between tnera, and then I'll explain just 
why TE FORTH Compiler is so strange. 

The first two programs arrive in a library case with 
cassette and manual(s). Loading is by LOAD "" CODE for 
Artie and LOAD "" for Abersoft. Loading time is only 
1 to li minutes and both auto-start with a copyright 
line. At this point Artie also tells you that you have 
23470 bytes free. You can find out how much memory you 
have available at any time by entering MEM. The equiv- 
alent command with Abereoft is FREE, but you then have 
to use the FORTH 'print' command (.) - which, with no 
user-defined words in the dictionary returns 18919 bytee. 
The manuals are very comprehensive, Abersoft at 26 pages, 
Artie at kk pages but with a separate Editor manual. 
Botn editors are standard FORTH line editors, but whereas 
Abersoft's is included in the dictionary, you must load 
Artie's from tape. I'll explain how you do this later. 

Programs are written to and edited on FORTH screens of 
16 lines by 6*4 characters, but Artie only has one of these 
resident in memory, whereas Abersoft has an internal 
11-screen ram-disc. Screens may be selected for editing 
by n LIST or n CLEAR, but with Artie, if the screen you 
want to edit is not the One currently in memory, it will 
try and load it from tape. In addition to the line editor, 
Artie also has a separate screen editor, which works like 
this - if, in immediate mode, you type in a command and- 
execute it, provided it does not clear the screen you can 
move the cursor up to the start of the command with the 
normal Caps-shifted cursor keys, then press shift-1 



to edit, hold it down, and the command le copied down to 
where the cursor originally was. Pressing feJNTTR will then 
execute the command a second time. I think this is one 
of Artie's beet features, because, if you define a word 
incorrectly and get an error message, you can cureor-up, 
copy the ults you want to keep, typing in the correction 
as you go. 

As far as tape- handling is concerned, both programs 
have tnelr good and bad points. .Yith Abersoft you can 
save an extended version of the dictionary, including 
your own defined words, and you can save, luad and verify 
the whole UK ram-disc. However, you can only save the 
whole UK, which takes time. It is fairly easy, if you 
speak Z60 assembler, and you have a copy of the ROM 
disassembly, to define your own single-screen load 
and save routines. With Artie's save, you can only 
save one screen at a time (the one In memory), which 
means that you have to plan your programs very carefully 
if you intend to use more than one screen-full of defin- 
itions. To save you use the word FLUSH and to load you 
use n LIST, where n is the number of the screen to be 
loaded, so you need to keep a written record of the 
numbers of the screens you nave previously saved. A 
cassette recorder with a tape-counter is a help, too. 
Also you need to make sure that the screen you are trying 
to load does not have the same number as the screen in 
memory, or LIST won't even look at the tape, but will 
list the one in memory to the screen. Also there is no 
routine to verify, unless you write a machine-code 
version yourself* 

Both Abersoft and Artie support most of the Spectrum's 
graphic commands, CIRCLK being the only one that Abersoft 
lacks, while Artie doesn't nave SCREEN*, ATTR or POINT. 
Because the FOKTH word OVER works differently from the 
Spectrum graphic command, both versions use GOVER, and 
I rugularly forget tnia and use OVER and wonder why it 
doesn't work. Character definition with Artie is as easy 



as stacking eight numbers, thei- the character code, then 
using the DEF command* V/ith Abereoft you need to use 
the FORTH variable UDG to work out where to cj your 
numbers. 

The BEEP command is also supported by Artie, but I had 
difficulty getting it to work. Abereoft has the word BL T vEP 
which works differently from the Spectrum BEEP, being a 
self-contained machine-code routine. You can create some 
amazing arcade-style sounds using this word in loops. On 
the whole, Abersoft' s screen and sound commands are more 
useful for writing games than Artie's and the dictionary- 
save ability make* it easy to run them too. Both versions 
also have CLS and AT, and Artie also has HOME, which puts 
the cursor at 0,0 without clearing the screen. 

Another interesting difference between the two packages 
is the use of the BREAK key. Abersoft uses two of them, 
the normal BREAK and Caps-shift-1. The difference is that 
when using the regular Caps-Space key during printer or 
cassette operations, you are usually dumped into BASIC, 
whereas ehift-1 leavaa you in FORTH. The only problem is 
that, while both Keys stop the VLIST command, neither of 
them will BREAK into a program while it is running, so 
you need to be careful about executing definitions that 
end in UNTIL. You can, however, check for caps-shift-1 
by including the words ?T;:RMINAL IF QUIT THEN in your 
loops. The Artie break key is the standard one and BREAKs 
programs as well as VLlSTs. 

Also, while on the subject of keys, both versions have 
KEY which waits for a key-press and leaves the ASCII code 
on the stack; Abersoft also has INKEY which doesn't wait, 
but returns if no key Is being pressed. The printer 
commands also differ in that Artie uses 1 PRINT I to 
divert all printed output to the printer, PRINT 1 to 
re-divert it to the screen, and COPY to do a screen-dump. 
Abersoft uses the variable LINK which echoes all screen 
output to the printer if it contains a non-zero value. 



Abereoft also considers the machine-code programmer by 
making available the words PUSHDE, PUSHHL, PCPDE and 
POPHL, and oy listing in the manual which registers the 
FORTH usee internally, and which must be preserved across 
word definitions. The only way I could find to implement 
my own m/c routines is to CREATE u header, manually assem- 
ble bytes using ci and then change the code-field pointer 
to point to the first byte of the code. The word CALL 
could nave usefully been implemented to avoid this. 

I'll quickly run through the other differences between 
the two FOHTHs. Both use numbered error codes which are 
listed in the manuals^ both support double-precision 
mathematics. Abereoft also has a complete CASE structure 
and a word SIZE which places on the stack the size of the 
dictionary defined so far. If you mis-define a word, Artie 
will let you FORGET a partially-completed definition, but 
Abereoft requires SMUDGE before FORGET in this case. 
Both will allow you to exit from FORTH - Artie with BYE 
which resets the entire system (effectively RAND USR 00 
and Abereoft with MON which returns you to BASIC with the 
error message STOP at line 2. You can also restart Aber- 
soft with RAND USR 2*+132 for a warm start (with user- 
defined words intact), or RAND USR 2i*128 for a cold start. 

I've used both packages for some time (my first encounter 
with FORTH was Artie's FORTH for the 2X61, which is almost 
exactly the same as Spectrum FORTH), and coming to any 
decision as to whicn is the better is difficult - it rather 
depends on what you want. Both support enough commands to 
run most applications, with Abereoft having better graphics 
and sound handling. If you can program machine-code 
either will do, and the prices are similar enough to 
make little difference to most pockets. Sinclair support 
Artie's version, but I think that Abereoft has the edge. 

Now, on to the last package - Thumall Engineering Forth 
Compiler. I've deliberately left it until last as it is no- 
thing like the other two. The Internal structure may be 
PORTH-llke, but the user-interface certainly isn't, When 
you load the program you are presented with a menu, with 
options to create, edit or delete a command, load or 
save a program to tap« f compile a program, delete the 

c 



compiler, or list the directory (slcl) of commands com- 
piled ao far. Everything you want to do has to be done 
through this menu system and no command can be executed 
in immediate mode, except after compiling it, and even 
then it sometimes doesn't seem to work. The only advant- 
age to this version of FORTH is that, once you have written 
your program you can dump the compiler out of memory, 
leaving a block of compiled code at the top of HAM 
which you can access with a single USH call. I must admit, 
I only tried this once, but it didn't work for me. 

The program comes in an Impressive looking library case 
and takes about l£ minutes to load. The manual runs to 
32 pages, half of which is a list of the 63 commands av- 
ailable to the user. Alao included ie an adhesive over- 
lay which you stick above the number keys. The top-row 
keys are used by the program as 'function' keys, 8 and 9 
performing cursor-left and right, for delete, and the 
others are used in creating commands. On choosing the 
menu option to create a new command (by pressing 'c') 
you are asked for a name, which must be at least two 
letters long. If the first word in your new definition 
ie to be BEGIN you must press key ' 2' (marked 1 and CALL 
on the overlay), then type BEGIN. Each command in a def- 
inition must be CALLed in thie way and numbers must be 
preceded with ENTER (key 3 on the overlay). 

I don't want to spend too much time explaining how to 
create new commands - instead I'll give you a sample 
listing from the manual : - 

1START JBEGIN 1INKEY 1TEST 1 WHILE 10VER iOVER 

iPLOT i REPEAT 
The exclamation mark in the listing is how the CALL 
function is shown on the overlay. 

The 63 available commands take up less than half of the 
screen when listed, and list alphabetically, with user 
definitions shown underneath as 'programs'. There are 
very few graphic commanda, and almost all of the names 
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uaed are non-standard. For instance, the word KKTCH le 
used in place of a. TUure la an uxtenulun dictionary on 
the tape, which comprises 6 words - AND, DKPTH, MAX, 
MIN, OH and XOH - four of which J would consider to be 
absolutely necessary for writing anything useful* 

Because the dictionary is so small and non-standard, 
and the program does not support many spectrum tiASCIC 
commands, and, on top of this, the price - I can't 
recommend it and, further, I can't even see why Thurnall 
Engineering thought anyone might want to buy it. 
Oae problom I had was that I had to use a sharp implement 
to force the cassette out of the library case. Having 
reviewed the program I have put the cassette back in 
the case, and, as far as I'n concerned, it can now 
otay utuck thorel 

Garry Knight 
30A Stanton House 
Thames Street 
London, SE10 9DJ 

6,6. 8i+ 
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SIMPLE ROBOT 

Mere is the design of a simple BBC-type buggy 1 built 
for my Ace. It uses either the Essex Micro Electronics 
sound board I /0 port-, or the spare 1 /0 port of the 
sound board in the last i ssue of Ace User. 

Components Qty 

BC107 transistor 5 

IK resistor 5 

IN4004 Diode 5 

SPCO 6V Relay 5 

3V motor 2 

wheels for above 2 

Edge connector, connecting wire for buggy (4-6 core). 

The motors, wheels and relays all came from Greenweld 
Electronics. The motors cost £5*95 and came already 
geared and cased. 

The electronic circuit is not complicated. Make sure 
you connect the relays to the l/O port in the right 
order, or the motor's power supply may be short 
r i rcu i fed . 

If the motor's power supply (I used 2x HPII's) gets 
mixed up, the robot will go backwards when you tell it 
to go forwards etc. 

The Actual robot can be made as basic or as advanced 
as you wish mine was just a Meccano frame enclosing 
t h<* motors . 

To run t tie software, the correct version of CONTROI 
should be used. Before the robot can be controlled, 
the word INIT must be used. The relays can be switched 
on and off and the buggy steered by using a number 
from the direction t id) 1 e and the word SWITCH. 

RUN enables you to guide the robot using the cursor 
keys, while RECORD will remember up to 200 steps, 
beginning when you press a key. PLAY will repeat the 
sequence . 

The buggy can be greatly enhanced: I give the touch 
sensory as an example: 

Direction Table 
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( SOME MORE CONTROL STHUCTURES ) 

( ERKOR_NO — 
ADORT 



2 COMPILER STARTLOOP 

HERE 2 ALLOT 6 
RUNS> 

SWAP ?DUP 
IF 

1- R> SWAP ^R >H 
DROP 
ELSE 

6 R> + >R 
THEN 
t 

2 COMPILER ENDLOOP 
6 - 
IF 

HERE OVER - OVER I 

HERE - , 
ELSE 

5 ERROR 
THEN 
RUNS> 
I 1 
IF 

H> R> 1- >R SWAP 

9 + >H 
ELSE 

DROP R> R> DROP >R 
THEN 
I 



( U_INDEX ~ ) 

uea^e; STARTLOOP ... ENDLOOP 
performs words between S and E 
u_index times 

NOTE; STARTLOOP will 
( iterate zero timesi 



- ) 

see STARTLOOP ) 

I will return no. of iterations J 
left to perform within loop 
hence same restrictions with 
R> and >R and EXIT as DO ... 
LOOP 

must of course be correctly 
( nested 



EXITLOOP 
R> R> DROP >R >R 



2 COMPILER FOREVER 
1 - 
IF 

HERE - 2- ( 
ELSE 

5 ERROR 
TH0i 
RUNS> 
@ R> + )R 



terminates loop at next 
ENDLOOP cf. LEAVE 



) 



directly replaces |6 UNTIL ) 



( Gordon R. Charlton 
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AN ALTERNATIVE CASE 

P.Goff 

This version forces a run-time branch to the procedure selected by 
the number on top of the stack; the program continues through the word 
ENDCASE. 

A string of '(NAME). ffj ENDCASE' is written into the buffer line, 
starting at 9953 ( it is ESSENTIAL to leave the first buffer byte 
clear ). 

This approach has the advantage of readibility and ease of editing. 
Many implementations are possible; the example below is a simple version 
dealing with up to 9 cases. 

Note that at LINE in CASE the program flow jumps to ENDCASE;any words 
after are ignored as the program effectively ends if flow returns to 
CASE. 

1. CHE ATE (NAME) eg CONTROL 
(maximum number of branches) C % 

(number of characters in (NAME) + 10 C, eg I? for CONTROL 
(NAME character by character) C t 

eg 67 79 78 84 82 79 76 for CONTROL 
46 C. 48 C, for CONTROL. 

32 C, 69 C % 78 C t 68 C t 67 C, 65 C % 83 C % 69 C t 
for CONTROL. ENDCASE 

2. Define 99S3 CONSTANT BUF 

3. Define a word to change the stack number to or the maximum 
branch number t if negative or greater than the maximum eg: 

: CHECKCASE 
DUP 0< 
IF 

DROP 
THEN 
DUP S PICK C§ > 
IF 
DROP DUP ce 
THEN 



4. Define a word to put the stack number into the (NAME) string eg: 

: SETCASE 

48 # OVER 1+ DUP Ce 8 - + Ct 

5. Define a word to load a string into the buffer t at 9953 eg: 

: FORCE 

2 + dup i - ce 

DO 

dup i + ce 

BUF I + C! 
LOOP 
DROP 



±4 



6. Define a word to control branching eg: 

: CASE 

SETCASE SWAP CHECKCASB 
SETCASE FORCE LINE 

( the first SETCASE defaults to CONTROL. , the second 
takes N of the stack to give CONTROL, N ) 

7. Define a word ENDCASE , linking to the rest of the program eg: 

: ENDCASE 



as appropriate. 



REFINEMENTS AND EXTENSIONS 



The number of cases need not be limited to 9; the string could contain 
a pair of ASCII codes for numbers up to 99. A possible approach would 
use an expression such as:~ 

: 2D 

10 /MOD 48 + 
SWAP 48 4 



to convert the stack number into 2 string digits. 

A refinement would be to set the string 'ENDCASE' in its own carrier 
word, then use it with a variety of case ( NAME )s. Routines to write it 
in the buffer after (NAME.N) would be required. 

Words to construct the strings from keyboard entry could be written. 

USE OF THIS PROCEDURE 

To use this approach, the program is essentially written in segments, 
eg: 

: «. ( number on stack ) (NAME eg CONTROL ) CASE 

: ENDCASE -~ 



15 



QUEUES 

In the same way that a stack is a laat-in first-out (LIFO) data 
structure, a queue may be described as a first-in first-out (FIFO) 
structure. So the first item added to a queue is the first available 
from tne queue, and tne most recently adued is the last availabe. 

Given a queue whicn contains four elements; 



A 

heaa 

of 


B 


C 


tail 
of 






queue 






queue 



adding an item E to the queue would leave it as; 

A B C D E 

f t 

head tail 

and subsequently removing an item would give; 
B C D E 

head tail 

The following words add the data type QUEUE to the Ace vocabulary, and 
also the necessary queue manipulation commands. 

QUEUE 

use ; n QUEUE queuename 

Declares a queue called queuename, which will nold at moat n elements 
(16 bit numbdrs: notes are given in the listing for conversion to 8 bit 
elements). 

QIEMGTH 

Given the address of a queue variable on the stack, will return the 
maximum number of elements it can hold, i.e.; 

lp QUEUE A 
A QLENCTH • 

would print; lp OK 

QSIZE 

Given the address of a queue, will return the number of items currently 
in the queue. 

QEMFTY 

Given the addx. of a queue will return True (l) if the queue has no 
elements, and False (p) otherwise. 

QFULL 

This returns True if the specified queue can accept no more items, and 
False otherwise. 



±6 



This will return the next available item on the specified queue, and 
remove it from the queue. 

Note — attempting to use this on an empty queue will cause ERROR 15 - 
queue underflow. 

Adds a data item to the named queue i.e.; 

125 A Q! 

will add tne number 125 to the queue called A . 

Note — attempting to add an element to a queue which is full causes 
ERROR 16 - queue overflow. 

QCLEAR 

Bnpties the specified queue, bo that it contains zero elements. 

By way of an example of queue manipulation I also include; 

QNBCT 

Fetches the next available element of the queue using Q© and adds it 
back onto the tail of the queue using QJ t whilst leaving a copy on 
the stack. 

This is used by; 

which will print the contents of the named queue non-destructively, in 
same wa# as .S displays the stack, i.e.; 

10 QUEUE A 

5 A QJ 

6 A q: 

7 a q: 

A .Q 

will print; 5 6 7 OK , and; 

A QCLEAR 
A .Q 

will print; queue empty OK . 

This occupies less than £k (497 bytes) altogether, and thus will fit 
into an unexpanded Ace with plenty of room to experiment, 

Gordon R. Charlton 
Without comments. 



1? 



DECIMAL 



i ERROR 

lt>421 I AUOKT 
I 

DEFIMER QUEUE 
1+ DUP f $ , 
, 2 •, ALLOT 

DOES 



( QUEUE STHUCTURE WUHDS ) 
( ERROH_NO 



HEAD 
2+ & 



TAIL 
4 + 



ITEM 
2 r 6 + + 



WRAP 

@ DUP ROT + SWAP 
MOD 



QSIZE 
@1- 



QLENCTH 
DUP TAIL OVER HEAD 
SWAP WRAP 



QEMPTY 
QLENCTH p- 



qfull 
dup qsize swap qlength 



Q$ 
DUP QEMPTY 
IF 

1^ ERROR 
ELSE 

DUP HEAD OVER OVER ITEM 

© HOT ROT 1+ OVE* 

WRAP SWAP 2+ I 
THEN 



MAX_Q u _SIZE — ) 

defined word returns Q_ADDR 

for 8-bit omit 2 * 



QJLDDR ~ OFFSET_TO_KEAD_OFJ} ) 

B- bit use (® instead of @ ) 

Q_ADDR — 0FFSET_T0_TAIL ) 

8-bit use Ogl instead of @ ) 



QJUJDR , OFFSET — ADDRJ)F_ITEM ) 
for ft- bit omit 2 4- ) 



OFFSET ( Q^ADDR — WRAPPED_OFFSET) 
modifies offset to fit the size of) 
the queue ) 



Q^ADDR — MAX_Q_SIZE ) 
QJUJDR — NO_OF_ITEMS_IR_Q ) 

QJIDDR — iaiWTY ) 
QADDR — ISFULL ) 
Q_ADDR — (^ELEMENT ) 

8-bit use C@ instead of @> ) 
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i Q! 

DUP QFULL 
IF 

16 ERHOR 
ELSE 

swap over dup tail item 
! dup tail 1+ over 
wrap swap 4 + : 

THEN 



( DATA , Q^ADDR — ) 



( 8- bit uae CI instead of I 



i QNEXT 

DUP Q# DUP ROT Q! 



i .Q 

DUP QEMPTY 
IF 

." queue empty" 
ELSE 

DUP QLENGTH 
DO 

DUP QNEXT . 
LOOP 
THEN 
DROP 
I 



( t^ADDR — NEXTJXEMENT ) 
( QJUJDH — ) 



JUPITER ACE STACK MANIPULATION 



B. Thornton 



While progr 
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allow "roll 
and switchi 
stack enabl 
storing num 
until requi 
ago, withou 
you are wel 



amming my AC 
ords which p 
ible to writ 
ee examples 
ing" and pic 
ng of number 
es you to us 
bers out of 
red. I offer 
t success 
come to do s 



E it became apparent to me that it 
ush numbers down the stack. It is 
e words on an ad hoc basi s but I 
that I have found useful . They 
king in reverse i.e. down the stack 
s in the stack. Full control over the 
e variables and constants less by 
the way, but still on the stack, 
ed these to "Your Computer" months 
o if you think they are worth printing 
o in the Users ' newsletter. 



±1 



<& ■ yi*aCrtTerfiJ 



T\Jft-r&C AC£- STrtC<K. MfattPUL-ATiQfiJ 



~ — ■ & 
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hCof 
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$- 



buAP ?> o P 
Hoi R R o w t. 



£l2fc££_ 



/>^r< 



W^ o- 



' ? 

© 

7 




fa 
7 
8 



7 

8 



Sw«JifrU,i,\ 



111%. 
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if U Ca. L S CvJ A P 
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/4^ 
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Dear Mr Noyce, 

I encl O50 a little routi ne wh i ch other ACE 
users may find useful. The idea is that the 
word LREF browses through the CONTEXT voabulary 
finding references to the word you &re 
interested in:- i.e. LREF PPUT lists all words 
containing a reference to PPUT. LREF is very 
useful with a large program, where locating 
references by any other means is a real bind. 

Gl ad 1 hat you &re carrying on; keep up the 
good work. 

Yours sincerely, 

H.G. Woods 



LREF 



Find references in Context. Vocab 



: WDNh 








-1 DUP 4 - 


SWAP 


DUP 




C3 - 4 - 








DO 








I CS> 127 


AND 


EMIT 




LOOP 








SPACE 








: LREF 








FIND ^DUP 








IF 








. " ■* " 








CONTEXT 5) 3 - 


CONTEXT 


a 








BEGIN 








9 OVER 


OVER 


*= 


■ 


WHILE 








DUP 4 - 


- DUP 


9 




+ OVER 


3 + 






DO 








3 PICK 1 


.9 ■ 




IF 








DUP 1 + 


WDNM 


LEAVE 


THEN 








2 








+LOOP 








2- 








REPEAT 








THEN 
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Dear JAUC, 

Having seen Mr. Lechocir& letter in the last 
Forth User, I felt that I should write i n to 
reassure anyone who is thinking of buying the 
Alphac.om 52 printer. It works tine and should 
be preferable to the Sinclair since it is n 
the official ZX printer. Anyone who is 
interested will be pleased to know that a 
separate power supply is included, so you do 
not need to upgrade the Ace power supply, 
though you will need to add an extra plug. 

I also include a couple of Forth words below 
that may be of interest to club members. A 
brief description is given underneath the 

I I stings. 



: ULIST 

13441 

BEGIN 

CR 1 1 
DO 

CR 1- 
BEGIN 

1+ DUP C3 DUF 127 
AND EMIT 128 AND 
UNTIL 
1+ DUP 3 + 5) 

Def i ned by 
2- DUP a) + 
BEGIN 

1+ DUP C3 DUP 127 
AND EMIT 128 AND 
UNTIL 

DROP DUP 3 + DUP 
HERE 1- > 15417 3 
IF 

OVER 15417 5) 1- > 
OR 
THEN 
IF 

LEAVE 
THEN 
LOOP 

DUP HERE 1- > 15417 3 
IF 

OVER 15417 1- > OR 
THEN 
IF 

1 
ELSE 

RETYPE 32 WORD 1+ C3 
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95 AND ASCI I N 
THEN 
UNTIL 
DROP CR 



This word can be used instead of VLIST. It 
lists out the? user vocabulary in blocks of 11 
with the de-fining word wr 1 tten out afterwards. 
If you wi sh to stop the program, just enter N 
or n when the Ace requests an input. Please 
note that the program will not work wi th 
vocabul ar ies. 

: M 

HERE CONTEXT - 30 - 

U. 

; 

This just says how much memory has been used in 
the Ace. 

: FR 

15384 5) HERE - 1024 
/MOD ABS . 15388 DUP 
3 1 - SWAP ! . " K " 
ABS . 



This just tells the user how much memory is 
left in Kbytes. Eg. 22K523 

Finally I would just like to say that if anyone 
out there can employ a 19 year Forth enthusiast 
I woul d be pi eased to hear from them. 

Yours i aithful ly , 

A. F.St rat. ton, 
Harcourt f m, 
Zeal s, 
Warminster , 
WILTS. 



Note from E.H.~ This letter as it came to us 
was printed on an Alphacom printer. The print 
is generally clear, al though very faint for 
some characters, and wi th rather variable 
1 etter boldness. It uses thermal paper t gi vi ng 
(in this case) blue letters on shiny white 
paper , and is certainl y reasonable value for 
the money. If you can afford something better, 
of course. , . , . 



2.3 



25 Friars ui a l k , 

Me W C dS t I € . 

Staffs', 

5T5 2rtPi 



Dear 



John 



in rep l'-i to two letters 
in the Last FORTH USER I can 
c o n f i r m t h a t t h e plphhCGM 32 
Printer can be used with the PuE 
and TPPE 11 , as shown by the 
printing of this Letter , 

Th e p r o b L e m s t h a t M r Ke n n e dy 
has had could be due to his 
printer and not his RCE < I had 
problems w i t h floating point 

f u n c 1 1 o n s w her; the P r i n t e r w a s 
connected » These were traced to 
the DS Line from the printer, 
which is used to indicate that 
the printer exists , and by 
putting a di ode in line w i t h 
this *; the g r e e n w i r e 



R Iphacorn ) 



P r o b I e \i\ s s t 



•= t o 



* ped, 



I have »>ade use of the D6 
Line to remind i\\ e to turn the 
D-inte r on by modifying Pi o n 

TPPE II as fO L LOWS : - 



PI 
251 IN 64 PND 64 



IF 
22 3 
hBGRT 

ELSE 
HCPRIN 

THEN 



T 



inter 



.5401 ! 



you r s sincerely 




R i chard V o r K. e 
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E.NI.E. SOUND BOARD REVIEW 



Hardware 



The board comes in a sturdy plastic case, about 
120 x 100 x 45 mm (LxWxH), with a 50mm cable out of the 
front for connection to the ACE, a slot to the left for 
the I/O Ports, and another slot at the back with a 
duplicate of the ACE expansion bus. On top there are a 
speaker grill, a volume knob, a reset button (for the 
sound board only) and a 3.5 mm jack socket to connect 
another speaker, or to go to an amplifier. The quality 
of construction is very good and solid, and I can see no 
problems occurring with wobbly connectors. The only 
(minor) problem is that it extends the ACE backwards by 
some 17 cm, which may cause problems if your table isn't 
wide enough. 

Software : 



A 24 page manual is provided, giving specifications, 

details of the chip, including some I/O circuits, and a 

lot of small words to make the chip easier to use. The 

instructions are very clear, and all the words I was able 

to try worked first time. A word of warning - if you type 

in all these words, which I would recommend, then you 

won't have enough room in 3K ram to do anything else. A 

rampack is needed, if you don't have one already (these 

are also available from E.M.E.). Words are provided to 

turn on and off channels (there are three tone channels 

and one noise - see ACE User 4, pages 8-10 for further nYl-ffiz 

details as the same chip is used), to program envelopes //r) 

and to calculate the numbers required for a specified 

pitch, plus some demonstration sounds (train, trimphone 

etc. ) . 

Conclusion : 



CHI? 



This is a very well produced product, and definitely 
recommended most highly. /p ., ) 
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boot; Reviews - by E. Matters ley 



'1 ;;|>lor ing Forth* by Owen Bujhop i'h,9T\ i r < >m 
Granada Publishing 

This is a nicely produced book, and quite 
Lheap, but I found it rather verbose, with 
rather long-winded explanations of eg. the 
stack, it is written assuming that, you have a 
BBC or an Electron, which would be con -fusing 
tor someone with a different micro. Its best 
feature is the large number of practical 
examples (a simple game, sor t 1 ng routines 
etc.), which arB used to explain Forth words, 
and whi ch give some ideas for ex per lmenters. If 
you have a BBC or Electron then this would be a 
good book to t ype 1 n ex amp 1 es f roin , but 
otherwise it makes somewhat: confusing and 
tedious reading. Readers with other micros 
would do better with Steve Oakey ' s book . 



'Forth for Micros' by Steve Qakey from Newnes 
Technical Books 

This is a nice book, written for people with a 
knowledge of Pascal or Eiasi c , al though peopl e 
with only micro experience may find some of 
chapter one confusing, with its references to 
compi 1 er s and interpreters. Once over this, 
however, it is a concise book, with a lot of 
good material on arrays and data types. It 
suffers, as usual, from standardisation 
problems, but there is a chapter on different 
versions of Forth for the ACE, Dragon and FIG- 
Forth. The boot itself uses only Forth-7V. li 
you art? learning Forth ait a second language 
then thi» book la. rwcurnmwndwd , and i% more 
readable than Bishop's. 
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"Advanced Software in Robot ici' from Elspvier 
9c i enrp Pub 1 i shers 

Well, I was asked to review this book, so I 
suppose I'd better, but frankly I didn't 
understand most of it, and I doubt if anyone 
not doing research into fifth generation robots 
would either. However, if you a^r ^ doing 
research into fifth generation robots then it 
is probably a very worthwhile boot to have. (In 
case anyone reading this is, the book is a 
series a4 papers, presented at an International 
Meeting held in Liege, Belgium, on various 
aspects of robotics - modelling, control, 
1 anguages etc . ) 



'Mathematical Elements for Computer Graphics' 
by D.F.Rogers and J.A.Adams £18.25 from McGraw- 
Hi II 

I f you got this book, as I did, expecting a 
series o* recipes for fast, 3-D graphics, then 
you' d get a shock . The book is basi cal 1 y a 
maths textbook, giving a complete mathematical 
derivation of some graphics techniques. Nothing 
here on how to get hi gh-resol ut i on graphics on 
your ACE, but pi enty on, for example, curve 
fitting, plane fitting (to a series of 
specified points), fast (matrix) methods for 
scaling, rotation and movi ng of objects in 2 
and 3-D, and for projecting objects. There s.r^ 
some al gor i thms i n the back <wr l tten i n a 
rather obscure version of Basic : Dartmouth 
Sixth Edition), but basically this is a book, 
for you to work out your own programs, gi ven 
the mathematical techniques presented. The 
maths is fairly easy (mainly matrices) as the 
course the book is intended to cover is a first- 
year uni versi ty course. Thi s book is highly 
recommended for anyone ser i ousl y i nterested i n 
good computer graphic a. 

( I am wor ki ng on some ACE words to l mpl ement 
some of the routi nes in the book , which may be 
published in Forth User in the future. ) 
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Reading and Writing a Raw Bytes File [ Expanded Ace) 

Mike Greenwood 

I wanted to read any part of memory and to write and edit in the 
reserved Ram above Ramtop the lengthy bytes file my project 
requires, and I wrote this suite to do it. I also find it useful 
for inspecting and fiddling with the spelling of usor-defined 
dictionary words and the operating system as it can also be used 
to chnnge bytes in Ram below Ramtop. 

RAW { Read And Write ) displays on screen a line of chars, 
from momory each side of the Imaginary pointer, with an uparrow 
on the next screen line to indicate the current pointer position. 
Tho rest of the screen displays information about values at the 
pointer and tho endpointer which marks the end oi? tho file. 

When RAW is executed, in addition to this display , until 
exitted by<break> , it responds to most keypresses by writing that 
keyboard char, into Rain at the pointer which moves on one byte, 
displaying the result and recurring so that it is possible to type 
continuous toxt into Ram. If you try to do this below Ramtop 
your typing is ignored, so you have to start byre serving some Ram 
with eg 20JW DUP RTP ! PTR ! which also puts the pointer 
there. Some keypresses are reserved for controls;- 
Shift 5 moves the pointer back one and shift B moves it on. Shift 
6 & 7 move it on or bacfc 10(/ bytes for coarse adjustment of the 
pointer position, but of course you cah also use (n) PTR +! 
Shift will delete the byte at the pointer ( but not if tho 
pointer is below Ramtop )and shift the whole of the remainder of 
tne file up to the endpointer back one byte, and shift 1 will 
wipe the screen which is handy for getting rid of screen clutter 
caused by encountering 13 bytevalues. Speed of execution is such 
that the recursive action of RAW allows repeated action without 
unwanted entries and deletions. Moving up and down memory with 
shifts 5 and b* has the chars, from memory chugging across the 
screen like a train, which is pretty to look at and also pretty 
useful as it altowscontinuous reading from memory. The endpointer 

does its best to keep track of where the end of your bytes file 
is meant to be but you do need to watch it and if necessary 
adjust with(n)£Pii +1 ". 
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Having exitted from RAW with <^break)a buff erf ul of text 
up to any chosen delimiter can be inserted into Ram { provided 
you are febfcvc framtop ) immediately after the pointer. The syntax 
for this ia, eg,' ASCII & INSERT textforinsertion&".The pointer 
is left at the end of the insert, ready for the next; the result 
ia displayed, the remainder of the file up to the endpointer is 
sfiifted up in Ram to make room for the insert and the endpointer 
adjusted. My inserts dont contain & t so I use an easier 
development of this for insertions - 

INSjZy text for insertion which oan include spaces/^ 

Single by ton can be written Into Ram at the pointer even if 
it's below RamtAp with (bytevalue) WRIB, and the result is 
dispVdyed ( if your tinkering has'nt crashed the system ), mo 
you can write in the bytes used as control chars, by RAW. If 
you want to INSERT a single byte { only dibftvtt- Ramtop ) it's best 
to insert anything eg INS^ X^ f 'use RAW to move the pointer back 
and (bytevaji'e) WRIB the byte into place. 

Listing 
: R REDEFINE ; ( We all have this next to FORTH, don't we ?) 
CMuVE { you need a proper version like G.R.YOHKE'S ih M- A* *■ ) 
+ 1 ( as per manual ^-W ) 

VARIABLE PTR ( the same within-word temporary pointer ) 
VARIABLE EPR { endpointer marking EuF ) 
(If some of these were'nt already in my toolbox I might not 
define then separately -when does it become worthwhile?) 
9216 CONSTANT FSA ( First Screen Address ) 
9^2 CONSTANT I.SA { Last Screen address/cursor ) 
153H4 CONSTANT RTP { address of store of RAMTOP ) 

: H 16 BASE c! ; ( some say "HEX" but I prefer tiny names for- ) 
(-oft-used toolbox words to save on the typing-who's right ?) 

B 2 BASE C! ; ( BINARY ) 

C INVIS CLS 1 { noreenwipe ) 

if II . " $ " . DECIMAL ; { prints mS. as a Hex no; ) 
P PTR 9 ; ( puts pointer position onto T.0J3. ) 
-1 ,PTR +! i ( moves pointer back one ) 
Q 1 PTR +1 ; imovefl pointer on one ) 
W 250 $ DO LOUP ; [ a short wait ) 
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: WINK { winks two chars, against each other at the address ) 
DUP ROT SWAP 3 1 BO CI 1 LOOP ; 

: K { indicates word being executed is waiting for a keypress) 
BEGIN 32 75 LSA WINK INKEY ?BUP UNTIL j 
; EPR+ { updates the endpolntor ) 
EPH © P 1 + MAX EPR J ; 

: PD1 ( finst part of pointer info display ) 
." RAMTOP m ■ « RTP § . CR CR 
.■■ POIN,TER^£££££££££££££ENDPOINTER= H t £= space ) 

EPR P OVER OVER . 14 SPACES . CR 
14 SPACES ' .£ CR CR CR 
■ to£££££££££££9 CR P # P C<3> 
DUP EMIT CR . 8 SPACES . CR 
.JB 8 SPACES .jt CR 

4 SPACES . DECIMAL ; 
{ second part of pointer info display 
AT P 14 ^9 * TYPE 
AT 94 EMIT CR ; 



CR 



B 

: PD2 

18 

19 14 



OVER OVER OVER OVER 



) 



: P? 



: WttIB 

P CJ 

: HAW 

: PRAM 

RTP 

: DELB 

PRAM P 

CMOVE -1 

: RAW 

p? K 

DUP 

DUP 

DUP 

DUP 

DUP 

DUP 

PRAM 

R RAW 



( pointer info disp lay ) 
AT PD1 PD2 ; 

{ write byte on T.O.S. into Ram at the pointer ) 
EPH* Q P? ; 

; [ a dummy to allow PRAM definition ) 

( protects Ram below Ramtop ) 
IS AB3 P > IF RAW THEN 

{ deletes the byte at the pointer, shifts rest of file) 
Q P SWAP EPR P 
EPR +10 RAW ; 

( main word - Read and Write into memory ) 



1 
7 

9 = 
5 = 
3 = 

w 

WRIB 



IF RAW THEN 
IF --100 PTR +1 
IF 1^ PTR *1 RAW 
IF DELB THEN 

IF Q RAW THEN 
IF C RAW THEN 



HAW THEN 

THEN 
( How much time & memory- ) 
(- does the use of CASE - ) 
( - actually save in this -) 



RAW 



( - sort of situation Y ) 



( get rid of dummy RAW ) 



-5? 



in 



Correcti ons to the SCRN«/SCR suite (vol 2 no:1 pp 12-13 ) 

(p 12 line 2 Mleave time to quit (enter)) ( insert -) 

921b pr I 79 CI) I ( this puts the pointer on the screen-) 
(-and a visible character in the cursor, which helps I ) 
(p 12 line 13-) UUP 11 < if DUP (- delete the final DUP which-) 

(- in as. and only leaves a pile of junk on the stack ) 
(p 13 line 16-) ( should read -) 

42 995t cl ( mark end of screen ) 

I now want to rewrite this suite in terms of more portable 
smaller words with as much standardisation with other users as 
possible. It is both more economical In the long run and makes 
listings more readable to use eg 

9216 CONSTANT PSA ( Pirst Screen Address • ) 
9952 CONSTANT USA ( baat Screen Address )., and the routine 
to put the pointer back on the screen if it has wandered off is 
,1ust one special case of tne gene Fai problem of resetting a 
variable to top or bottom limit of a defined range if ife has 
escaped from the range limits; we need a word INRANGE where 
■ variabiename LIMIT1 liralt2 INRANGE " will reoet the variable 
to limitl ( whether its the max or the min ) if it is outside the 
rn nge . 

\ INSERT (eg ASCII £ INSERT Hello Everybody il ) 

PRAM WORD C® Q P DUP 3 PICK + EPR 

P - CMOVE ( make room for insert ) 

PAD 1+ P 3 PICK CMOVE DUP PTR +! 

EPR +! p? ; (_f*\o«. vyv^c^ UiK v*v 1* ^c^ ) 

: INS#- ( eg INS# Evening All^ ) 
ASCII # INSERT ; 



fVLW^ 



vt**rvo^~ , 



A 
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D. KEATES 
35, THE WALK, 
FELIXSTOWE, 

SUFFOLK. 

DEAR SIR, 

I HAUE JUST READ A MATES 
COPV OF VOUR MAG. AND LIKE IT. 
R. HILTON, S PROG. IN SPRING 83 
EDITION PROMPTED ME INTO WRITING 
A MORE USEFUL PROG. WHICH SCROLLS 
A MESSAGE CONTINUALLY ACROSS THE 
SCREEN. THE MESSAGE CAN HOLD UPTO 
254 CHRS. PUNCTUATION CAN ALSO BE 
USED, BUT THE INUERSE AND GRAPHIC 
CHRS CANNOT. 

THE WORDS, CODE AND DATA SHOULD 
BE THE FIRST WORDS IN MEMORV AND 
IF VOL! ARE OHLV USING THE BASIC 
MACHINE, THE HEX CODE SHOULD BE 
ENTERED AFTER THESE WORDS, SO VOU 
STILL HAUE ROOM FOR A HEX LOADER 
TO ENTER IT WITH. 

IF VOU DECIDE TO PUBLISH THIS 
PROGRAM IT MUST BE WORTH A VEARS 
FREE SUBSCRIPTION OF VOUR MAG. IF 
HOT THEN USE IT AHVHOW. 

GOOD LUCK WITH VOUR MAGAZINE. 
VOURS SINCERLV ,, // 



/ 



// 

/A 



r 



-> 



S2 



CREATE CODE 76 ALLOT OK 
CREATE DATA @ , 8 , ? O , OK 
8 fiU'.iE 

CODE 52 + CALL 



OK 



i PAUSE 
500 
DO 
LOOP 

m 

OK 

: SCROLL 
4 
DO 

CODE CALL PAUSE 
LOOP 
MOUE 

OK 

: COPVUP 
DATA SWAP DUP 8 + 
SWAP 
DO 

I Cfi OVER C! 1+ 
LOOP 

DROP DUP 95 < SWAP 
62 > AND 
IF 

DATA 7 + C'l 
THEN 
DATA Cl 

OK 






■ FINDC 
DUF 1+ C© DUP 32 
- 7 * 7546 + 
OUEP 94 ':■■ 
IF 

ELSE 
OUER DUP 62 > 

IF 

ELSE 
DROP 

THEN 
THEN 
COPVUP 

■ 

OK 



: MES 

CL3 . " TYPE IN VOUR MESSAGE END 
INQ IT " 

CR . " WITH THE SYMBOL ~ ( SHIFT 
ED A ) " 

CR . " THEN PRESS THE ENTER KEY. 



QUERY ASCI I ~ 

i 


WORD 


OK 




: BORDER 




32 O 




DO 




II XII 

1 




LOOP 





OK 



3^- 



: RUN 

MES CLS - " 
•' D. KEATES " 

BORDER 7 B AT BORDER 

12S SPACES BORDER 
BEGIN 

FIHDC SCROLL 
UNTIL 



LARGE CHARACTERS B 



OK 



T HE WORD CODE = 15452 AND SHOULD 
BE THE FIRST WORD IN MEHORV. 

THE FOLLOWING HEX CODE SHOULD BE 
LOADED FROM 15452 DECIMAL OR 
3C5C HEX. 

3C5C 11 00 25 21 01 25 01 SO 

3C64 OO ED BO 11 IF 25 21 BD 

3C6C 3C Ob 05 AF CB 16 17 CB 

3C74 16 17 23 CB 16 17 CB 16 

3C7C 17 23 E5 21 A2 3C 85 6F 

3C84 ED AO 21 IF 00 19 EB El 

3C8C lO El FD E9 21 01 27 11 

3C94 02 27 4E 06 00 1A 23 23 

3C9C OB ED BO 12 FD E9 



he* Lofipez P. t± Ac£ 



<*& s&^te 



-"- 



DEAR SIR 



H 
•Til 



D. KEATES 
35, THE WALK, 
FELIXSTOWE, 

SUFFOLK. 

FEW MORE LINES FROM ME 
KNOW THAT I MADE THE 



TO LE' 

SOUND GENERATOR LEX MAN SONDEREN 
DESIGNED < WINTER S3 PAGE 6 >AND 
IT WORKED WITH NO PROBLEMS. I DID 
HOWEWER, CONNECT THE JO VST I CK UP 
DIFFERENTLY AS THE AV-- 3-891 HAS 
INTERNAL PULLUP. I LEFT OUT THE 
RESISTORS AND CONNECTED THROUGH 
THE SWITCHES TO OU. THE RESULT IS 
THEN 255 - THE VALUE OF SWITCHES 
WHICH ARE ON. 

I ENCLOSE A LISTING OF A PROGRAM 
TO USE WITH IT. IT WILL JUST FIT 
INTO THE 3K MACHINE WITH NO ROOM 
FOR COMMENTS. THE DISPLAY AND THE 
INSTRUCTIONS ARE SHOWN BELOW. 





V( 


JURS SINCERLV 






// M** 


KEV 


C; 


CHANGES THE SPEED 


KEV 


1 


MOVES THE ARROW 


KEV 


T 


TRIGGERS THE ENU. SHA 


KEV 


f, 


INCREASES CONTENTS 


KEV 


f 


DECREASES CONTENTS 


KEV 





RESETS ALL REGISTERS 



THE BITS IN REG 7 ARE DISPLAYED 
AT THE BOTTOM OF THE SCREEN. 

SG RUNS THE PROGRAM. 



26 



DISPLAV 


* 


REG 


CONTENTS 


9 





1 





2 





■j 





4 





5 





.■- 


31 


D 


-7 
J 


l* 


3 


16 


9 


16 


10 


16 


11 





il- 


80 


ls 





>14 


••'Crcr 


x. -J--I 


15 


•-i cr cr 
iL -J ■-.' 



USE 

A TONE FINE 
COARSE 
B TONE FINE 
COARSE 
C TONE FINE 
COARSE 

NOISE PER IOC- 
ENABLE LOW 
A UOLUME 
B UOLUME 
C UOLUME 
EHU. PERIOD FINE 
COARSE 
ENU. SHAPE 
I/O PORT A 
I/O PORT B 



IB I A NC NB Nrt TC TB Th 

111 



N. B. 

IF THE ARROW IS POINTED AT AN 
I/O PORT IT WILL GIUE A CONSTANT 
UPDATE OF THE CONTENTS. 



17- 



- b ICEJT6S 

9 UARIAE.'LE R OK 

8 OAR I ABLE I..J OK 

: SET 
SWAP 221 OUT 223 OUT 

■ 

OK 

: R? 
221 OUT 221 IN 

■ 

OK 

: R. 

2 O AT 16 O 
DO 

I O SET SPACE I 

DUP DUP . 2+ 3 

AT R? . 2 SPACES 

CR 
LOOP 

■ 

OK 

• PR 

R Q DUP 

OK 

: K67 

RR R? ROT + SET 

■ 

OK 

: Kl 
RR 2+ O AT SPACE 
1+15 AND R l 



OK 



28 



SOU (Jb GL*)WaTv& TOOLKiT 

- b iceirss 

9 VARIABLE R OK 
9 UARIABLE l.i.l OK 

SWAP 221 OUT 223 OUT 

■ 

OK 

: R? 
221 OUT 221 IN 

OK 

i R. 

2 AT 16 
DO 

I SET SPACE I 

DUP DUP . 2+ S 

AT R? , 2 SPACES 

CR 
LOOP 

m 

OK 

• PR 

R Q DUP 

OK 

: K67 
RR R? ROT + SET 

■ 

OK 

: Kl 
RR 2+ O AT SPACE 
1+15 AND R I 



ox 28 



: SP 

300 hi (a) - 
j 

BEGIN 
INKEV 6= 

UNTIL 

OK 



16 15386 6> 

AND SPACES 



- 31 



OK 



A 



II 


TONE FINE" 


T . ' 


COARSE" 


T 




OK 




SETUP 


CLS 


. " REG CONTENT 


CR C 


.:R T . " A" 


A . ' 


' B" 


A . ' 


. ,--.. 


A . ' 


' NOISE PERIOD" 


T . ' 


• ENABLE LOW" 


T . ' 


1 A VOLUME" 


T 


' B UOLUME" 


T . ■ 


' C UOLUME" 


T . ' 


1 ENU. PERIOD FINE" 


T . ' 


' COARSE" 


T . ' 


1 ENU. SHAPE" 


T . ' 


' L-0 PORT A" 


T . 


' I/O PORT B" 


R. 





USE" 



OK 



29 



SGI 




INKEV DUP 4': 


'> = 


IF 




Kl 




ELSE 




DUP 55 = 




IF 




-1 K67 




ELSE 




DUP 54 ■ 




IF 




1 K67 




ELSE 




DUP 48 = 




IF 




R. 




ELSE 




DUP 115 


= 


IF 
SP 




ELSE 




DUP 51 


= 


IF 




13 13 


R? SET 


THEN 




THEN 




THEN 




THEN 




THEN 




THEN 




DROP RR 2+ [ 


Xlp B 


AT . " >" 




OUER . 8 AT 


R? 


. 2 SPACES 





OK 



: SG 
SETUP CR . " IB I A NC NB NA TC T 
B TA" 

BEGIN 
FAST SGI 7 R? 24 



io 





DO 

21 22 I - AT 
2 •'MOD SWAP . : 
+LOOP 

DROP SLOW W <® 
DO 

LOOP 

UNTIL 

OK 



uai "LT *♦ ^ p o© v* , 

J 







ID c jKA^Krmc Ck<;ma>" 
TSttiGHTOfVJ. 



t 

0, Opxk W^d of oa^tCC ^cwuy^e uaf^<X PflC£* niA^atk . I ^ 

H<nnAo> rW r^ pA*K K<*c, <f fl C £ U<&r \ placed »k u*rr r Wrr/ °W wi>A 

KlortU T7>e P*C£e u*GS SZ'iO ^f <A <^^/^ , cwi rH«t*l*4 bid J2v. 
/crio-5 SiacCttI^ ^ 

(ilc fw- a' k> T * Ahau>- ci\c l'k**d ef l~Kc limes I ^"^ ftf* I (W Uf»pC*~ 



A2. 



ON- Sc£££*J tHir^T Cf<£) ~C \\„ Wry 



i^iTf cestui rAKjy KEy<~UT 

tt/iw'AlT (i/j^tr for Hey bo Ue ^e/e*.vc«/ c?#~ &© 

Leer 

Ret I Kj 

I \~ 
9 






-tf 



chAcs > ^) 
I P 



,C£S£ 



rw c k/ 



(T>«,fe^e f.* e ) 



t>cLETE ? C Delete */■ delete If* e. ^rc;ie^?) 

T H t~ w 

It) ^ 

x r 
Da 

^ e y W A I T 



nvJTuT 



( ^bid^,) 

fraop -.pace scarce & chaks 

& - 1 - E»IT 
TW£i^ f 

Delate ^ 
D^r 11 > 



-H 



3<^p i ^*# seep &dop fxf *^fc, lo-^ep ) 

Key u/^VT T 
OCLo p 

UtO T i U 



2 £# I NJ Put UC I0 6 T H I (A,ct?^tr n^> tc Zi'i/ <ri*o»-^( **e. . ) 

*Z FidSTCHAI ! ( T*a r*««j£ 52 to 127) 

127 lahcH/^A ! 

T)0 (Meve J^,'^ t-u P4b ) 

X PAD 4- C! 

<-ooP 






<*> 



tevy* repeat / nrm-^ efvlehe. o* c >/ deAefrc '<**>. u^. // 

ia^<^ *** k , 

to LUl c Ua^ctc Grew* & AM . M^ ^.'* ^ cJoes c.4 l^« // , 1 

"'^ rt*«ii*<**je* *rc> corrupt ov^s of bUii ^ew*,y c^Ui 

^^' b eve* trUe 6>a*ls Umc| ( u;/.'tte^ be? t X U1/1 

L 4 I , " fcrc U <? % 5c^ U ^ . 
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Dear John, 

EnclDsed you should f i nd my renewal -form, and 
details of some useful routines for the ACE. I 
hope the routines below ar& good enough to be 
reprinted as an article in ACE USER, 

Yours sincerely 

Stuart Howel 1 . 

PS- For those who want speech on the ACE, the 

easiest way of doing it is to use a Z80-PIQ 
and the General Instruments Speech 
Synthesiser SP0256-AL2. 



See February ' 84 ETI . (Electronics Today 
International ) for a speech board using this 
chip. It will need some alteration to fit the 
Ace's memory map, as the project was originally 
for the ZX81. The same issue has an article on 
fitting extra memory to ZBO machines (as in the 
Ace) . 

E.H. 



Your wish is our command. 



: DIR 

CLS 15431 9 15431 ! 

VLIST'DROP 15431 ! 



( Lists all directory 
not in rom, ie. user 

defined words ) 



DEFINER MCODE 

ALLOT 
DUES> 
CALL 



( Word to initialise 
M/C routine. Requires 
the number of bytes 
to be used on the 

stack > 



: WHERE 

( - start address of 

code ) 
FIND 2+ 



( Finds the start 

address of the code 

in the f ol lowing word ) 



: CODELEN 

( - No. of bytes in 

code ) 
FIND 5-87- 



( Finds the number of 
bytes in the code in 
the fol lowing word ) 



4 7- 



: 7LINE20 
15389 3 9855 
IF 

BEBIH 

22 29 AT 
INKEY 
UNTIL 
CLS 
THEN 



M *• 



Wai fa for a keypress 
when text reaches line 
20 on screen. Used in 

LOADER and READER ) 



: INPUT 
C - 7 ) 

-32768 QUERY 
VIS SWAP -32 
IF 

." Hello, hello, 

CR . " 

ABORT 
THEN 
I 



INVIS LINE 
68 - 



As ACE 

except 



manual p96, 

for replacing 
QUIT by ABORT ) 



hel Id, what' s 



going on here then' 



: TAB 

( tab stop - ) 

15388 9 - 31 AND SPACES 



( As ACE manual p75. 
Used for screen 

formatting ) 



: READER 

t address from, 

number of bytes 
OVER « SWAP 
DO 

5 TAB I . 15 

TAB I C3 . CR 

7LINE20 
LOOP 



Prints a dump of 
memory starting from a 
given address, for a 
gievn number of bytes, 
% t op p i nq a f t mr mm C h 

screenful ) 



LOADER 
address: 



CLS OVER + 
DO 



number 
of bytes 
SWAP 



5 TAB INPUT 
I C! 12 TAB 
7LJNE2G 

LOOP 

DECIMAL 



DUP 
I . 



Allows input of bytes 
starting at a given 
address, for a given 
number of bytes. Start 
address is usually 

given by WHERE ) 



4? 



: HEX 

16 BASE C! 



( Changes system number 
base to hexadecimal ) 



Machine code routines 



These? ar& defined by: 



n MCODE name 



where: n = number of 
bytes 

name = name of 
routine 



and then using 

WHERE name n HEX LOADER 



SCREENSAVE ( 11 bytes ) 



RST 24 

LD HL,8I92 

LD BC,768 

LDIR 

JP (IY) 



DF 

21 00 20 
01 00 03 
ED B0 
FD E9 



( Saves the screen to 
a bl ock of memory 
gi ven by the address 
on the stack. This 
can be put on the 
stack by using a 
word such as TVP1C, 
which has been 
defined by using 

CREATE TVPIC 768 
ALLOT ) 



RECALL < 12 


byt 


E?S ) 




RST 24 




DF 




EX DE,HL 




EB 




LD DE,8192 




11 


00 20 


LD BC,768 




01 


00 03 


LDIR 




ED 


BO 


JP (IY) 




FD 


E9 



( Restores a stored 
screen to the screen. 
P i c t ur e is recall ed 
from the address on 

the stack ) 



MOVE ( 12 bytes ) 

RST 24 
PUSH DE 
RST 24 
PUSH DE 
RST 24 
EX DE,HL 
POP DE 
POP BC 
LDIR 
JP (IY) 



DF 




D5 




DF 




D5 




DF 




ED 




Dl 




i 1 
t D 


BO 


I D 


E9 



( Copies a block of 
memory: 



^ 



T.O.S. 


No. of bytes 


o f t 


Where to 


p a 


Where from 


c 




h 


This is useful 




for graphics 




memory moves. 




Be careful if 




moving over- 




1 appi ng areas 



ALTER < 21 bytes ) ( Used in CHANGE 

and INVERT ) 

RST 74 

LD ML ,971 6 

LD BC768 
:L2 LD A,E 

CPIR 

JR NZ, :L1 

DEC ML 

LD (HL),D 

INC HL 

LD A,B 

PR C 

JR NZ, :L2 
:L1 JP (IY) 



: CHANGE ( Changes all occurences 

< nl,n2 - ) of character nl on 

256 * + ALTER screen to n2 ) 



: INVERT ( Inverts all occurences 

( nl - ) of nl on screen ) 

DUP 12S + 
256 MOD 
CHANGE 



DP 






21 


00 


74 


01 


00 


03 


78 






ED 


Bi 




20 


07 




2B 






72 






23 






70 






Bl 






20 


F4 




FD 


E9 





sro 



SAVE and L OAu of si ng 1 e war ds 



<by Morten Levy) 

As an ACE user I often meet the problem of 
handling words independently to the dictionary: 
you have a program of, say, twenty words, si* 
of which are solutions to very general 
problems. How can you pick those si>; words from 
that dictionary to load them into another ? That 
Is very difficult with the ACE (and for that 
reason I think it was a mistake of the ACE 
manufacturers not to maintain the FORTH concept 
of Screens) . 

< Not e f r Dm E . H . ~ Good point, but it just won't 
work without a disk-drive, which costs a lot.) 

With two 1 imi tat ions the routine that foil nws ; 

shouls solve the problem. The two limitations 

are: 

1 ) The words you save of load should not be 
larger than one screenful when LISTed. In a way 
that is an advantage as i t encourages you to 
keep your words small. 

2) When you use this routine to load some words 
into a dictionary you will find the words of 
the routine in the dictionary too. That can be 
annoying. It is possible to avoid it, but it is 
not s i mp 1 e . < Mor e or i this later.) 

The wor d s n f t h e r ou tine arts STORE and FETCH. 
Both words use W~ INPUT which accepts a string 
of words you want to save of loas and puts it 
i n s a f e t y i n PAD 1 . This s t r i n g sh ou Id consist 
of word-names and spaces alternately. Be 
careful that you leave one space and one space 
only between the word-names, as the routine 
takes two neighbouring spaces as a sign that 
you have finished you input. Also, the inverse 
copyright (ascii 255) should not be used, as 
this is used as a dummy delimiter for WORD. The 
r ou t i n e can h a n d 1 e a max i mum of 253 inpu t 
character s- 

The word INITIALIZE used by both STORE and 
FETCH sets the pointer POS to the start of PAD! 
and put spaces in the &nd of PAD1 to ensure 
smooth f uncti oni ng. 



si 



On STORE: The routine will input the* list of 
wor d name 3 ( W - 1 NP U T ) . a n d t h e n r ep e a fc erf 1 y 
py-ecutf? ST PROCESS until PAD1 is empty. ST~ 
PROP F: BS t a k e s a w or d - n a me f r o m P AD 1 a n d p u t s it 
into t he i n p u t h u f f e r < BUF ) , L I B T s t h e w o r d 
(STORE! >, moves the same word -name once more to 
the input buffer (PIJF) , BSAVEs the relevant 
p a r t o f t h e s c r ee n u n d er t h e word -n a me in 
q u e s t ion ( S T R E 2 ) , a n d „ u 1 1 i m a t e 1 y ( b a c k i. n 
S T OR F ) do e 5 t h e s a m e w i t h t h e n e x t w o r d ■- n a 1 n e , 
and so on. 

On F E "1 CN : T h e r o Ll t i n e w ill in p u t the 11 9 1 o -f 
word ft a mr * s ( W- 1 NPl IT), and then r er> e a t e d 1 y 
e,: mill e Ft I PHI :F !*!< > tint i t PAD 1 i n emp t y . PE 
PR DC l : 5 13 mo v e s a wor d f r om P A I) 1 t o 1. 1 1 e 1, n p \. \ I 
buffer (BUF). BLOADs the word to the screen 
(FETCH!), accepts the listing as input by 
changing the value stored in address tf»39<S (it?. 
the start of the input buffer) (FETCH.?), and 
then (hack in FETCH) does the same to the next 
word-name, and so on. 

Error hand 1 i nq: If you try to save a word not 
contained in the d i c t i o r i a r y t h e r o u t i n e w i 1 1 
stop i^nd ERROR 13 will appear- You ' 11 have to 
enter VIS as you ^r^ i n INV'IS mode. 
If you try to load a word which contains a word 
not found in the dictionary the routine will 
stop and wait for you to correct the word, as 
in a normal EDIT session. You can try to 
c or r ei: t it and t hen c on t i n u e « b u t o f t. en t h e 
easiest way out is to enter tABORT] and then 
VIS, as y ou i^rr^ in I NV I S mode. 
If you have tried to save a word that, is too 
large for' one screenful and then later attempt 
to load it. you 7 11 just get a word -torso on the 
screen and the AC F will p r oh a b I y c r a s h . S o 
don't do that. 

Clean hill: When you fetch some words voir 1 1 
h a v e t ft e p r oh 1 e m mentioned a b o v e - h o w ^r& you 
going to get rid of the words of this routine? 
The best thing to do, natural ly v is to rewrite 
t h e r n\ 1 tin e i r 1 1 o m a c h i n e - c o d a b o v e R A MTOP (in 
fact, I have done that - ask John Noyce is you 
are int. er est et I ) . T ft er e ar e t wo o t h er 
possi bi 1 i tes: 



sz 



1) Loading by hand (for a few words) 

Enter 

FORGET <first ward) 

then, for each word you want to load enter 

INVIS CLS 9281 BLQAD <word~name> 

B t a r t t a p e , fc It e 1 1 e n t or ( w h en I oi i n d ) 

32 9280 C! 9280 15396 ! LINE VIS 

2) Loading via REDEFINE (several words) 

Enter 

F0ROET < first word) 

LOAD a dictionary consisting of two words: 

: R REDEFINE ; 

: X 58 9960 C ! 3? 9961 C • 171 9967 V. ■ 
32 9963 t:« !>9 9964 U » I IW | 

in that order. Then 

X < enter > X <enter> . .... 



as many times as the number of words you ar^ 
going to load minus 2. Load the routines given 
here, then load the words required via FETCH. 
Enter 

R X R X 

as many times as the number of words you have 
loaded minus 2* Enter 

R X R R F0F<(jET < first word of routines given) 

Now your dictionary shoul d consist of the 
desired words only. 



r ~,. 



VARIABLE PAD1 253 ALLOT 
VARIABLE POS 



INC 
DUP 3 1+ SWAP ! 



CMOVE 

C ad r 1 adr2 n -) 
DUP 1 < 
IF 

DROP DROP DROP EXIT 
THEN 

DO 

OVER I + C3 OVER 

I + C! 
LOOP 
DROP DROP 



: INITIALIZE 
PAD1 DUP POS ! 253 

+ ! 



! W-INPUT 
QUERY 255 WORD 1+ PAD1 

253 CMOVE 



W-COMD 
( -flag) 

pos a ca 32 = 
0= 



: BUF 
9357 
BEGIN 
W-COMD 



ST/+ 



WHILE 

pos a ca over c 

POS INC 1+ 
REPEAT 
DROP 



FETCH1 
CLS 32S1 BLQAD LINE 



FETCH2 
32 9230 C! 9230 15336 
! LINE 



: FE-PROCESS 

CLS BUF INVIS FETCH1 FETCH2 
VIS POS INC 



: FETCH 
INITIALIZE CLS ." Write the words you want 
CR . " <ENTER> " to load" 

CR CR ." Start tape when screen is clear" 
W-INPUT 
BEGIN 

W-COND 
WHILE 

FE-PROCESS 
REPEAT 



STORE 1 
CLS LIST LINE 



ST0RE2 
SI 92 153SS 3 3216 
BSAVE LINE 



ssr 



: ST-PROCESS 
POS 3 CLS BUF IMVIS 
STORE 1 PDS ! BUF STORED 
VIS POS INC 



STORE 
INITIALIZE CLS ." Write the words you want 
CR . " Start tape" to sav e" 

CR CR . " <ENTER> " 
W-INPUT 
BEGIN Qo 

W-COMD /\ 

WHILE 

ST-PROCESS 
REPEAT 



ST6 



Jf you*. Ace 4tiM. -Ld '$oin.$ down' ikU mlp/U kelp. 
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Mr. S, Jackson. 
51 V/adsley Lane, 
Sheffield, S6 4EA # 
5. Yorks. 

Tel: (0742) 340356 

Dear JARC, 

Many thanks for the copy of "FORTH USER vol* 2 no.1" which 
includes my letter on system expansion. As requested, here is an update on 
the system :- 

A problem has been found in the expansion bus boards (used to 
modify and buffer the Ace bus), which would prevent full DMAs from taking 
place. The hardware problem has now been overcome and four new boards are 
being prepared. These boards are as foil own :- 

I Bio buffers (for normal bus signals) 

II Derived bus and control logic (5 nommonly used lines) 

III Memory paging port (loc FFFFh giving A16' to At? 1 ) 

IV Page indicator (pretty lights as FFFFh is write only) 

An advantage of the use of a number of smaller boards is that 
users not wanting to implement a particular feature need only omit the 
unwanted boards. I will send details as soon as the PCBs are working, but, 
for now, the first of the attached sheets' shows my suggestion for a more 
sensible bus structure. 

Secondly, and probably more interesting, is the 16k memory unit 
the prototype of which is working perfectly on my own Ace. For any interested 
parties, the working unit is wire-wrapped, although a PCB is being prepared 
to suit the suggested bus. As soon as this is ready, the foil patterns will 
be available to club. members. For users who want to go thier own way, an SAE 
will secure the circuit diagram (64k memory map only). However the whole 
unit provides the following features:- 

I Full 16k of dynamic RAM (of course) 

II Link/Switch selection of position in memory map 

III Link/Switch selection of page number 

IV All for less than £15 if you shop carefully 

Thirdly, and with reference to quite a few letters in "FORTH 
USER" here is an idea for those of you who are trying to replace the "soggy 
sponge" with a real keyboard. 

Although Doug Bollen's interface (F7TI Nov 83) is very good, 
there is a simpler way*. On the second of the attached sheets are a number of 
diagrams which show a far cheaper method of doing the same thing INSIDE the 
case. This should only be attempted by people who are competent with a 
soldering iron. as the guarantee will not survive the process. I use this 
arrangement myself with a superb Hall -effect keyboard (ex-equip from 
Chi] tern Electronics if they have any left), If you do get one of these, 
thpre is a LOT of work to do. I use the Hall I.C.s to control 4066Bs in 
place of the keyboard matrix. Note: Hall switches do not generate any 
switch bounce 1 . Any alternative can be used (as in Mr. Rollen's article). 
A future letter will show how to add extra keys to the Ace keyboard. 

Yours Faithfully, 



Stephen Jackson 26/4/04 



I.'TOi t 



SUGGESTKD bus structure 
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The bus use3 Ace type edge connectors (but longer). Dual sided 32 ways 
per side, Note: Mapliri supply the elusive mounting brackets for these. 
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Tbe article by Doug fe»ll«n ( l ; T2 Nov 0?) describes a peripheral board 
designed to Interface keyboard s or joysticks to the Acp. If you do not 
want to invalidate the guarantee, or you do not fool confident soldering 
to tbe Acp PCU then thin interface in for you. If on the other hand yon 
are a competent conn true tor, there le an alternative. 

As stated in the article, the interface runs in tandem with the 
internal keyboard ports. It stands to reason, therefore, that if the 
relevent locations on the Aeo POB con be found interfacing can be 
carried out In a far more convenient manner within the machine. This is 
how to go about it. 

1) Dismantle the Ace completely and remove the beatsink. 

2) Locate the eight diodes which correspond to the 1N/|MB« of 

Mr. Pollen's interface (these are the small yellow components 
with black bands towards the back of the board which can be 
found immediately below the speaker). 

3) Solder fine wire 3 to the keyboard end of each of these diodes. 

They are Y3,Y4,Y5,Y6, Y7,Y0,Y1 and Y2 in the matrix respectively 
These wires should be approximately 8" long 

A) Look at the PCB where tbe rubber keyboard is usually sited and 
use figure 1 to locate points X0 to XA when you are sure you 
have found thorn, solder fine wires into them from the underside 
and trim the protruding wires flat to the top of the board. 
These wires should be approximately R" long. 
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5) Use double sided tape to hold these wires to the underside of 
the hoard arid route them through the vacant hole in front of 
the cassette sockots. Trim the wires to /|" from the board 
surface. 

You are now ready to decide on the details of your new keyboard. If 
you intend to use a keyboard on a trailing lead, you must build the 
buffer board shown in figure 2 because the capacitance a long lead will 
introduce onto the address lines will otherwise stop the system 7)KAT)'. 
You probably wont need to do this if you re box your ace inside your new 
keyboard. 
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This circuit is best built onto a small piece of Vero-board, the power 
in;; extracted direct from the Ace PCB. Power can be taken from the ed#e 
connector or from a point close to the site of the buffer within the cane. 
Please note that if you ere unf amil Lar with the decoupling requirements of 

i'b buffers, you should include a 100nF capacitor on the buffer board 
between +'jV and Ground, or the operation cannot be guaranteed. 

For Uio^e people re boxing thier Ace t they must now proceed alone. It 
le probably better to fit a Docket to the Ace and have your keyboard on 

trailing lead (you can then attach joystick*, eta. to this). If you 
decide to do Ltiifl proceed as follows :- 

6) Using Rlu-tak f stick the buffer board to the top <>f the group of 
four 'PTL 1*0*8 immediately to the left of the modulator. Houte 
the wires from the diodes against the PCB between the I.C.s. 
Trim the output wires to a length of /!"• Heplaoe the he at sink. 

7) Add [tower supply leads to the Ace PCB if you intend to add any 
hardware to your keyboard/joy sticks. 
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You must now out a hole in the top of the casing to accept the 
socket of your chosen connector system. I would Recommend a 
1j way cannon it-type connector mounted an shown in figure 3* 




9) Before mounting the socket, you must feed the wires through the 
hole in the case. Holder the wir^s to the pins of your connector 
I would recommend the following pinout for the 15 way socket. 
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JO) Uoiirnimtble th^ Ann wj th the connector bo J ted in place. 

At this point you can now test the interface, this is herd, done by 
shorting; out the socket pins with a 500 Ohm resistor and making sure the 
character 011 the screen agrees with the matrix connections detailed in Mr. 
IkiUon'.H article. If everything is OK ynu ran connect your keyboard to 
the 1 1> way nockct via a trailing lead. T use a 2m length of Vj way ahielded 
without any problems, (connect thn shield at the socket end only)* 



Finally, KT] will : 
numbers or ptinbncnplpii 



ipply copies of the article in th" form of back 
>i, ref|ueot»{ thry cost 1'1.'30 naob). 
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Dear Sirs, 

I am thinking of buying a "PSGIO" from Essex Micro 
Electronics, but in the meantime, if anyone would like 
to make a joystick interface then just look at page 154 
in the manual, and you will see that someone has kindly 
put in just the circuit you want. I've worked out that 
it will cost about £ 2 to build, excluding the actual 
circuit board and joystick. 

You can of course make your own joystick quite easily. 
This is done by taking a square piece of wood (or any 
material) and drilling a hole about 1 inch diameter in 
the center. Then cut a circular piece of copper about 
twice the diameter of the hole and stick it to the wood 
so that it covers the hole. 

Then cut the hole out of the copper again, leaving a 
circle of copper about V 2 an inch wide round the edge of 
the hole. 

Then take a knife and cut away a space leaving 4 quarters 
of copper around the hole. You then solder to the under- 
side of these copper pieces and take the wires away throuj 
the bottom of the wood. Now comes the most expensive part 
of the whole job. Go down the road and buy a new bolt, 
(the longer the better). 

Get a piece of hardboard (or metal) and cut two pieces to 
the same area as those of the wooden block. Drill a hole 
through the middle of both. On what will be the top piece 
cut out a hole to a 1 inch diameter. Fix this piece to the 
top of the wooden block. Take the other piece and put the 
bolt through the hole you've drilled, then get a small 
rubber tyre of some sort (from a model or something) and 
slip this over the bolt. Then get a large washer and slip 
this on top of the tyre and then get the nut and tighten 
the nut until the bolt self centres. Solder a wire to the 
bolt underneath the hardboard and then fix this piece of 
hardboard to the bottom of the piece of wood. You should 
now have five wires coming from the joystick. All you 
need to do now is to go along to your local electronics 
shop and buy a key to use as a fine button. 



4Z 



This should be connected to the same 5v supply as the 
bolt arfd the wire from the key should go with the other 
4 switch wires and the one 5v wire. Connect the wires 
from the copper plates to the 74LS368 along with the 
wire from the key. Connect the bolt wire and the wire 
to the key to the +5v supply via a IK 5X- resistor . 

Robert Mayell. 
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